(*%F _fdata *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# module(init_code=>on) *)
(*# data(seg_name => null) *)
(*# call(o_a_copy => off) *)
(*# check(stack=>off,
          index=>off,
          range=>off,
          overflow=>off,
          nil_ptr=>off) *)
DEFINITION MODULE Com;

      (* NOTE: THIS IS AN ABRIDGED VERSION OF COM TO DEFINE PROCEDURES *)
                     (* USED IN FILE TRANSFER PROTOCOLS *)

PROCEDURE commChar(): BOOLEAN;
(* TRUE IF character is waiting *)

PROCEDURE SendBreak;
(* Sends a break *)

END Com.
